home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_d / rtcg.zip / TESTUNIT.PAS < prev   
Pascal/Delphi Source File  |  1996-03-02  |  6KB  |  187 lines
  1. unit TestUnit;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, DB, DBTables, RtChkGrp, Menus, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Button1: TButton;
  12.     Memo1: TMemo;
  13.     RtCheckGroup1: TRtCheckGroup;
  14.     ListBox1: TListBox;
  15.     Button2: TButton;
  16.     Button3: TButton;
  17.     Button4: TButton;
  18.     Label1: TLabel;
  19.     Label2: TLabel;
  20.     RtCheckGroup2: TRtCheckGroup;
  21.     RtCheckGroup3: TRtCheckGroup;
  22.     RadioGroup1: TRadioGroup;
  23.     RadioGroup2: TRadioGroup;
  24.     CheckBox1: TCheckBox;
  25.     RadioGroup3: TRadioGroup;
  26.     RadioGroup4: TRadioGroup;
  27.     Bevel1: TBevel;
  28.     procedure Button3Click(Sender: TObject);
  29.     procedure Button4Click(Sender: TObject);
  30.     procedure Button1Click(Sender: TObject);
  31.     procedure Button2Click(Sender: TObject);
  32.     procedure RtCheckGroup1Click(Sender: TObject);
  33.     procedure RtCheckGroup2Click(Sender: TObject);
  34.     procedure RtCheckGroup3Click(Sender: TObject);
  35.     procedure RtCheckGroup1Check(Sender: TObject; Index: Integer;
  36.       var Value: Boolean);
  37.     procedure RadioGroup1Click(Sender: TObject);
  38.     procedure RtCheckGroup3DrawItem(Sender: TObject; Index: Integer;
  39.       Rect: TRect; State: TOwnerDrawState; var Handled: Boolean);
  40.     procedure CheckBox1Click(Sender: TObject);
  41.     procedure RadioGroup2Click(Sender: TObject);
  42.     procedure RadioGroup4Click(Sender: TObject);
  43.     procedure RadioGroup3Click(Sender: TObject);
  44.   private
  45.     { Private-Deklarationen }
  46.   public
  47.     { Public-Deklarationen }
  48.   end;
  49.  
  50. var
  51.   Form1: TForm1;
  52.  
  53. implementation
  54.  
  55. {$R *.DFM}
  56.  
  57. procedure TForm1.Button3Click(Sender: TObject);
  58. var
  59.    i: integer;
  60. begin
  61.    for i:=0 to Memo1.Lines.Count-1 do
  62.    begin
  63.       if RtCheckGroup1.Items.IndexOf(Memo1.Lines[i])<0 then
  64.          RtCheckGroup1.Items.Add(Memo1.Lines[i]);
  65.       if RtCheckGroup2.Items.IndexOf(Memo1.Lines[i])<0 then
  66.          RtCheckGroup2.Items.Add(Memo1.Lines[i]);
  67.       if RtCheckGroup3.Items.IndexOf(Memo1.Lines[i])<0 then
  68.          RtCheckGroup3.Items.Add(Memo1.Lines[i]);
  69.    end;
  70. end;
  71.  
  72. procedure TForm1.Button4Click(Sender: TObject);
  73. var
  74.    i,n: integer;
  75. begin
  76.    for i:=0 to Memo1.Lines.Count-1 do
  77.    begin
  78.       n := RtCheckGroup1.Items.IndexOf(Memo1.Lines[i]);
  79.       if n>=0 then
  80.          RtCheckGroup1.Items.Delete(n);
  81.       n := RtCheckGroup2.Items.IndexOf(Memo1.Lines[i]);
  82.       if n>=0 then
  83.          RtCheckGroup2.Items.Delete(n);
  84.       n := RtCheckGroup3.Items.IndexOf(Memo1.Lines[i]);
  85.       if n>=0 then
  86.          RtCheckGroup3.Items.Delete(n);
  87.    end;
  88. end;
  89.  
  90. procedure TForm1.Button1Click(Sender: TObject);
  91. var
  92.    i: integer;
  93. begin
  94.    for i:=0 to Memo1.Lines.Count-1 do
  95.    begin
  96.       RtCheckGroup1.Value[Memo1.Lines[i]] := True;
  97.       RtCheckGroup2.Value[Memo1.Lines[i]] := True;
  98.       RtCheckGroup3.Value[Memo1.Lines[i]] := True;
  99.    end;
  100. end;
  101.  
  102. procedure TForm1.Button2Click(Sender: TObject);
  103. var
  104.    i: integer;
  105. begin
  106.    for i:=0 to Memo1.Lines.Count-1 do
  107.    begin
  108.       RtCheckGroup1.Value[Memo1.Lines[i]] := False;
  109.       RtCheckGroup2.Value[Memo1.Lines[i]] := False;
  110.       RtCheckGroup3.Value[Memo1.Lines[i]] := False;
  111.    end;
  112. end;
  113.  
  114. procedure TForm1.RtCheckGroup1Click(Sender: TObject);
  115. begin
  116.     ListBox1.Items.Assign(RtCheckGroup1.Checked);
  117. end;
  118.  
  119. procedure TForm1.RtCheckGroup2Click(Sender: TObject);
  120. begin
  121.     ListBox1.Items.Assign(RtCheckGroup2.Checked);
  122. end;
  123.  
  124. procedure TForm1.RtCheckGroup3Click(Sender: TObject);
  125. begin
  126.     ListBox1.Items.Assign(RtCheckGroup3.Checked);
  127. end;
  128.  
  129. procedure TForm1.RtCheckGroup1Check(Sender: TObject; Index: Integer;
  130.   var Value: Boolean);
  131. var
  132.     Line: string;
  133. begin
  134.     Line := TRtCheckGroup(Sender).Items[Index]+' will be ';
  135.    if Value then
  136.        Line := Line+'checked.'
  137.    else
  138.        Line := Line+'unchecked.';
  139.     if MessageDlg(Line+#13#10+'Proceed ?',mtConfirmation,[mbYes,mbNo],0)=mrNo then
  140.        Value := not Value;
  141. end;
  142.  
  143. procedure TForm1.RadioGroup1Click(Sender: TObject);
  144. begin
  145.     RtCheckGroup1.CheckMode := TRtCheckMode(TRadioGroup(Sender).ItemIndex);
  146.     RtCheckGroup2.CheckMode := TRtCheckMode(TRadioGroup(Sender).ItemIndex);
  147.     RtCheckGroup3.CheckMode := TRtCheckMode(TRadioGroup(Sender).ItemIndex);
  148. end;
  149.  
  150. procedure TForm1.RtCheckGroup3DrawItem(Sender: TObject; Index: Integer;
  151.   Rect: TRect; State: TOwnerDrawState; var Handled: Boolean);
  152. begin
  153.       with TRtCheckGroup(Sender) do
  154.           if Value[Items[Index]] then
  155.            Canvas.Font.Color := clRed;
  156. end;
  157.  
  158. procedure TForm1.CheckBox1Click(Sender: TObject);
  159. begin
  160.    RtCheckGroup1.WordWrap := (Sender as TCheckBox).Checked;
  161.    RtCheckGroup2.WordWrap := (Sender as TCheckBox).Checked;
  162.    RtCheckGroup3.WordWrap := (Sender as TCheckBox).Checked;
  163. end;
  164.  
  165. procedure TForm1.RadioGroup2Click(Sender: TObject);
  166. begin
  167.    RtCheckGroup1.TextAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex);
  168.    RtCheckGroup2.TextAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex);
  169.    RtCheckGroup3.TextAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex);
  170. end;
  171.  
  172. procedure TForm1.RadioGroup4Click(Sender: TObject);
  173. begin
  174.    RtCheckGroup1.BmpVAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex+2);
  175.    RtCheckGroup2.BmpVAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex+2);
  176.    RtCheckGroup3.BmpVAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex+2);
  177. end;
  178.  
  179. procedure TForm1.RadioGroup3Click(Sender: TObject);
  180. begin
  181.    RtCheckGroup1.BmpHAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex);
  182.    RtCheckGroup2.BmpHAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex);
  183.    RtCheckGroup3.BmpHAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex);
  184. end;
  185.  
  186. end.
  187.